no_ChIP <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_", names(list_s1)[i])
  no_ChIP[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = FALSE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP",
    rnaCutoff = FALSE
  )
}

no_ChIP_split <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_", names(list_s1)[i])
  no_ChIP_split[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = FALSE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split",
    rnaCutoff = FALSE
  )
}

no_ChIP_rna <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_rna_", names(list_s1)[i])
  no_ChIP_rna[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP_rna",
    rnaCutoff = FALSE
  )
}

no_ChIP_split_rna <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_rna_", names(list_s1)[i])
  no_ChIP_split_rna[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split_rna",
    rnaCutoff = FALSE
  )
}

no_ChIP_rna_cutoff <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_rna_cutoff_", names(list_s1)[i])
  no_ChIP_rna_cutoff[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP_rna_cutoff",
    rnaCutoff = TRUE
  )
}

no_ChIP_split_rna_cutoff <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_rna_cutoff", names(list_s1)[i])
  no_ChIP_split_rna_cutoff[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split_rna",
    rnaCutoff = TRUE
  )
}

no_ChIP_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_", names(list_s1)[i])
  no_ChIP_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = FALSE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP_bg_all",
    rnaCutoff = FALSE
  )
}

no_ChIP_split_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_", names(list_s1)[i])
  no_ChIP_split_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = FALSE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split_bg_all",
    rnaCutoff = FALSE
  )
}

no_ChIP_rna_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_rna_", names(list_s1)[i])
  no_ChIP_rna_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP_rna_bg_all",
    rnaCutoff = FALSE
  )
}

no_ChIP_split_rna_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_rna_", names(list_s1)[i])
  no_ChIP_split_rna_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split_rna_bg_all",
    rnaCutoff = FALSE
  )
}

no_ChIP_rna_cutoff_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_rna_cutoff_", names(list_s1)[i])
  no_ChIP_rna_cutoff_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "no_ChIP_rna_cutoff_bg_all",
    rnaCutoff = TRUE
  )
}

no_ChIP_split_rna_cutoff_bg_all <- list()
for (i in 1:length(list_s1)) {
  n <- paste0("no_ChIP_split_rna_cutoff", names(list_s1)[i])
  no_ChIP_split_rna_cutoff_bg_all[[n]] <- perform_rGREAT(
    df = list_s1[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "no_ChIP_split_rna_bg_all",
    rnaCutoff = TRUE
  )
}

with_ChIP <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_", names(list_s2)[i])
  with_ChIP[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = FALSE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP",
    rnaCutoff = FALSE
  )
}

with_ChIP_split <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_", names(list_s2)[i])
  with_ChIP_split[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = FALSE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split",
    rnaCutoff = FALSE
  )
}

with_ChIP_rna <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_rna_", names(list_s2)[i])
  with_ChIP_rna[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP_rna",
    rnaCutoff = FALSE
  )
}

with_ChIP_split_rna <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_rna_", names(list_s2)[i])
  with_ChIP_split_rna[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split_rna",
    rnaCutoff = FALSE
  )
}

with_ChIP_rna_cutoff <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_rna_cutoff_", names(list_s2)[i])
  with_ChIP_rna_cutoff[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP_rna_cutoff",
    rnaCutoff = TRUE
  )
}

with_ChIP_split_rna_cutoff <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_rna_cutoff_", names(list_s2)[i])
  with_ChIP_split_rna_cutoff[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split_rna_cutoff",
    rnaCutoff = TRUE
  )
}

with_ChIP_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_bg_all_", names(list_s2)[i])
  with_ChIP_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = FALSE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP_bg_all",
    rnaCutoff = FALSE
  )
}

with_ChIP_split_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_bg_all_", names(list_s2)[i])
  with_ChIP_split_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = FALSE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split_bg_all",
    rnaCutoff = FALSE
  )
}

with_ChIP_rna_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_rna_bg_all_", names(list_s2)[i])
  with_ChIP_rna_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP_rna_bg_all",
    rnaCutoff = FALSE
  )
}

with_ChIP_split_rna_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_rna_bg_all_", names(list_s2)[i])
  with_ChIP_split_rna_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split_rna_bg_all",
    rnaCutoff = FALSE
  )
}

with_ChIP_rna_cutoff_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_rna_cutoff_bg_all_", names(list_s2)[i])
  with_ChIP_rna_cutoff_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = FALSE,
    outDir = "with_ChIP_rna_cutoff_bg_all",
    rnaCutoff = TRUE
  )
}

with_ChIP_split_rna_cutoff_bg_all <- list()
for (i in 1:length(list_s2)) {
  n <- paste0("with_ChIP_split_rna_cutoff_bg_all_", names(list_s2)[i])
  with_ChIP_split_rna_cutoff_bg_all[[n]] <- perform_rGREAT(
    df = list_s2[[i]],
    rna = TRUE,
    bg = bg_all,
    fName = n,
    split = TRUE,
    outDir = "with_ChIP_split_rna_cutoff_bg_all",
    rnaCutoff = TRUE
  )
}